home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / text / edit / CedBar.lha / CedBar / indent.g < prev    next >
Text File  |  1999-05-10  |  535b  |  32 lines
  1. G4C
  2.  
  3. WINBIG 391 34 150 19 'Indent by:'
  4. WinType 11110001
  5. BOX 0 0 0 0 out button
  6.  
  7. xOnLoad
  8.    indentval = "\t"
  9.    guiopen indent.g
  10.    
  11. xOnReLoad
  12.    guiopen indent.g
  13.  
  14. xOnRMB
  15.    guiclose indent.g
  16.  
  17. XTEXTIN 3 2 110 14 "" indentval "\t" 100
  18.    gosub indent.g indent
  19.  
  20. XBUTTON 114 2 33 14 "Ok"
  21.    gosub indent.g indent
  22.  
  23. xroutine indent
  24.    SendRexx $cedbar.gc/cedport cut
  25.    lvuse CedClip.g 1
  26.    lvchange 'CLIPS:$cedbar.gc/cedClip'
  27.    call LVFormat INDENT  '$indentval'
  28.    lvsave 'CLIPS:$cedbar.gc/cedClip'
  29.    SendRexx $cedbar.gc/cedport paste
  30.  
  31.  
  32.